home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / pdf_draw.ps < prev    next >
Encoding:
Text File  |  2002-11-21  |  37.8 KB  |  1,248 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_draw.ps,v 1.63 2002/11/21 01:29:07 alexcher Exp $
  17. % pdf_draw.ps
  18. % PDF drawing operations (graphics, text, and images).
  19.  
  20. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  21. .currentglobal true .setglobal
  22. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  23. GS_PDF_ProcSet begin
  24. pdfdict begin
  25.  
  26. % For simplicity, we use a single interpretation dictionary for all
  27. % PDF graphics operations, even though this is too liberal.
  28. /drawopdict 100 dict def
  29.  
  30. % ================================ Graphics ================================ %
  31.  
  32. % ---------------- Functions ---------------- %
  33.  
  34. % Note that resolvefunction converts a PDF Function to a PostScript Function;
  35. % resolve*fnproc converts a PDF function to a PostScript procedure.
  36. % We need to process all required and optional parameters to resolve any
  37. % use of indirect references.
  38.  
  39. /fnrdict mark
  40.   0 { .resolvefn0 }
  41.   2 { .resolvefn2 }
  42.   3 { .resolvefn3 }
  43.   4 { .resolvefn4 }
  44. .dicttomark readonly def
  45.  
  46. /.resolvefn0 {
  47.   dup length 1 add dict .copydict    % make room for DataSource
  48.   % now resolve any indirect references
  49.   dup /Size 2 copy knownoget { put } { pop pop } ifelse
  50.   dup /BitsPerSample 2 copy knownoget { put } { pop pop } ifelse
  51.   dup /Order 2 copy knownoget { put } { pop pop } ifelse
  52.   dup /Encode 2 copy knownoget { put } { pop pop } ifelse
  53.   dup /Decode 2 copy knownoget { put } { pop pop } ifelse
  54.   
  55.         % Don't lose our place in PDFfile.
  56.   PDFfile fileposition exch
  57.   dup true resolvestream
  58.         % The stream isn't positionable, so read all the data now.
  59.         % Stack: filepos fndict stream
  60.   1 index /Range get length 2 idiv 2 index /BitsPerSample get mul
  61.   2 index /Size get { mul } forall
  62.   7 add 8 idiv string
  63.   1 index exch readstring pop exch closefile
  64.         % Stack: filepos fndict data
  65.   exch dup /DataSource 4 -1 roll put
  66.   exch PDFfile exch setfileposition
  67. } bdef
  68.  
  69. /.resolvefn2 {
  70.   dup length dict .copydict
  71.   dup /C0 2 copy knownoget { put } { pop pop } ifelse
  72.   dup /C1 2 copy knownoget { put } { pop pop } ifelse
  73.   dup /N 2 copy knownoget { put } { pop pop } ifelse
  74. } bdef
  75.  
  76. /.resolvefn3 {
  77.   dup length dict .copydict
  78.   dup /Bounds 2 copy knownoget { put } { pop pop } ifelse
  79.   dup /Encode 2 copy knownoget { put } { pop pop } ifelse
  80.   dup /Functions 2 copy oget mark exch dup {
  81.     oforce .resolvefn
  82.   } forall
  83.   counttomark -1 roll astore exch pop put
  84. } bdef
  85.  
  86. /.resolvefn4 {
  87.   PDFfile fileposition exch             % filepos fndict
  88.   dup true resolvestream                % filepos fndict stream
  89.   exch dup length dict copy             % filepos stream fndict2
  90.   dup /Function undef                   % filepos stream fndict2
  91.   exch dup token not {
  92.     () /rangecheck cvx signalerror
  93.   } if
  94.   exch token {
  95.     /rangecheck cvx signalerror
  96.   } if
  97.         % Use .bind to avoid idiom recognition.
  98.   .bind
  99.   1 index /Function 3 -1 roll put
  100.   exch PDFfile exch setfileposition
  101. } bdef
  102.  
  103. /.resolvefn {        % <fndict> .resolvefn <fndict'>
  104.   dup length dict .copydict
  105.   dup /Domain 2 copy knownoget { put } { pop pop } ifelse
  106.   dup /Range 2 copy knownoget { put } { pop pop } ifelse
  107.   dup /FunctionType oget //fnrdict exch get exec
  108. } bdef
  109.  
  110. /resolvefunction {    % <fndict> resolvefunction <function>
  111.   .resolvefn
  112.   DEBUG { (%Function: ) print dup === flush } if
  113. } bdef
  114.  
  115. /resolvefnproc {    % <fndict> resolvefnproc <proc>
  116.   resolvefunction .buildfunction
  117. } bdef
  118.  
  119. /resolveidfnproc {    % <fndict> resolveidfnproc <proc>
  120.   dup /Identity eq { pop { } } { resolvefnproc } ifelse
  121. } bdef
  122.  
  123. /resolvedefaultfnproc {    % <fndict> <default> resolved'fnproc <proc>
  124.   1 index /Default eq { exch pop } { pop resolveidfnproc } ifelse
  125. } bdef
  126.  
  127. % ---------------- Shadings ---------------- %
  128.  
  129. /shrdict mark
  130.   /ColorSpace {
  131.     resolvecolorspace
  132.   }
  133.   /Function {
  134.     dup type /dicttype eq {
  135.       resolvefunction
  136.     } {
  137.       [ exch { oforce resolvefunction } forall ]
  138.     } ifelse
  139.   }
  140. .dicttomark readonly def
  141.  
  142. /resolveshading {    % <shadingstream> resolveshading <shading>
  143.   PDFfile fileposition exch
  144.   mark exch {
  145.     oforce //shrdict 2 index .knownget { exec } if
  146.   } forall .dicttomark
  147.   dup /ShadingType get 4 ge {
  148.     dup dup true resolvestream
  149.         % Make a reusable stream so that the shading doesn't
  150.         % reposition PDFfile at unexpected times.
  151.     /ReusableStreamDecode filter /DataSource exch put
  152.   } if exch PDFfile exch setfileposition
  153. } bdef
  154. /resolvesh {        % <shname> resolveshading <shading>
  155.   Page /Shading rget {
  156.     resolveshading
  157.   } {
  158.     null
  159.   }ifelse
  160. } bdef
  161.  
  162. % ---------------- Halftones ---------------- %
  163.  
  164. /spotfunctions mark
  165.   /Round {
  166.     abs exch abs 2 copy add 1 le {
  167.       dup mul exch dup mul add 1 exch sub 
  168.     } {
  169.       1 sub dup mul exch 1 sub dup mul add 1 sub
  170.     } ifelse
  171.   }
  172.   /Diamond {
  173.     abs exch abs 2 copy add .75 le {
  174.       dup mul exch dup mul add 1 exch sub
  175.     } {
  176.       2 copy add 1.23 le {
  177.     .85 mul add 1 exch sub
  178.       } {
  179.     1 sub dup mul exch 1 sub dup mul add 1 sub
  180.       } ifelse
  181.     } ifelse
  182.   }
  183.   /Ellipse {
  184.     abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt {
  185.       pop dup mul exch .75 div dup mul add 4 div 1 exch sub
  186.     } {
  187.       dup 1 gt {
  188.     pop 1 exch sub dup mul exch 1 exch sub
  189.     .75 div dup mul add 4 div 1 sub
  190.       } {
  191.     .5 exch sub exch pop exch pop
  192.       } ifelse
  193.     } ifelse
  194.   }
  195.   /EllipseA { dup mul .9 mul exch dup mul add 1 exch sub }
  196.   /InvertedEllipseA { dup mul .9 mul exch dup mul add 1 sub }
  197.   /EllipseB { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }
  198.   /EllipseC { dup mul .9 mul exch dup mul add 1 exch sub }
  199.   /InvertedEllipseC { dup mul .9 mul exch dup mul add 1 sub }
  200.   /Line { exch pop abs neg }
  201.   /LineX { pop }
  202.   /LineY { exch pop }
  203.   /Square { abs exch abs 2 copy lt { exch } if pop neg }
  204.   /Cross { abs exch abs 2 copy gt { exch } if pop neg }
  205.   /Rhomboid { abs exch abs 0.9 mul add 2 div }
  206.   /DoubleDot { 2 {360 mul sin 2 div exch } repeat add }
  207.   /InvertedDoubleDot { 2 {360 mul sin 2 div exch } repeat add neg }
  208.   /SimpleDot { dup mul exch dup mul add 1 exch sub }
  209.   /InvertedSimpleDot { dup mul exch dup mul add 1 sub }
  210.   /CosineDot { 180 mul cos exch 180 mul cos add 2 div }
  211.   /Double { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add }
  212.   /InvertedDouble {
  213.     exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg
  214.   }
  215. .dicttomark readonly def
  216.  
  217. /htrdict mark
  218.   1 { .resolveht1 }
  219.   5 { .resolveht5 }
  220.     % We don't support types 6, 10, or 16 yet.
  221. .dicttomark readonly def
  222.  
  223. /.resolveht1 {
  224.   mark exch {
  225.     oforce
  226.     1 index /SpotFunction eq {
  227.       dup type /nametype eq
  228.     { //spotfunctions exch get } { resolvefnproc }
  229.       ifelse
  230.     } {
  231.       1 index /TransferFunction eq {
  232.     resolveidfnproc
  233.       } if
  234.     } ifelse
  235.   } forall .dicttomark
  236. } bdef
  237.  
  238. /.resolveht5 {
  239.   mark exch {
  240.     oforce dup type /dicttype eq { resolvehalftone } if
  241.   } forall .dicttomark
  242. } bdef
  243.  
  244. /resolvehalftone {    % <dict> resolvehalftone <halftone>
  245.   dup /HalftoneType get
  246.   dup //htrdict exch .knownget {
  247.     exch pop exec
  248.   } {
  249.     (\n\n   **** Unsupported HalftoneType ) pdfformaterror
  250.     =string cvs pdfformaterror (. ***\n\n) pdfformaterror
  251.     /resolvehalftone cvx /unregistered signalerror
  252.   } ifelse
  253. } bdef
  254.  
  255. % ---------------- Graphics state management ---------------- %
  256.  
  257. /cmmatrix matrix def
  258. drawopdict begin
  259.             % Graphics state stack
  260.   /q { q } def
  261.   /Q { Q } def
  262.             % Graphics state setting
  263.   /cm { //cmmatrix astore concat } def
  264.   /i { 1 .min setflat } def
  265.   /J /setlinecap load def
  266.   /d /setdash load def
  267.   /j /setlinejoin load def
  268.   /w /setlinewidth load def
  269.   /M /setmiterlimit load def
  270.   /gs { gs } def
  271. end
  272.  
  273. % Each entry in this dictionary is
  274. %    <gsres> <value> -proc- <gsres>
  275. /gsbg {
  276.   /BGDefault load resolvedefaultfnproc setblackgeneration
  277. } bdef
  278. /gsucr {
  279.   /UCRDefault load resolvedefaultfnproc setundercolorremoval
  280. } bdef
  281. /gstr {
  282.   dup type /arraytype eq {
  283.     { oforce /TRDefault load resolvedefaultfnproc } forall
  284.     setcolortransfer
  285.   } {
  286.     /TRDefault load resolvedefaultfnproc settransfer
  287.   } ifelse
  288. } bdef
  289. /gsparamdict mark
  290.   /SA { setstrokeadjust }
  291.   /OP { 1 index /op known not { dup op } if OP }
  292.     % The PDF 1.3 specification says that the name /Default is only
  293.     % recognized for {BG,UCR,TR}2.  However, PDF 1.3 files produced
  294.     % by Adobe Acrobat Distiller 4.0 for Windows use the name /Default
  295.     % with the older keys, so we have to implement this.
  296.   /BG { 1 index /BG2 known { pop } { gsbg } ifelse }
  297.   /UCR { 1 index /UCR2 known { pop } { gsucr } ifelse }
  298.   /TR { 1 index /TR2 known { pop } { gstr } ifelse }
  299.   /HT {
  300.     dup /Default eq {
  301.       pop .setdefaultscreen
  302.     } {
  303.     %****** DOESN'T IMPLEMENT THE STREAM CASE YET ******
  304.       resolvehalftone sethalftone
  305.     } ifelse
  306.     % the transfer function may dependent on the halftone, so make sure
  307.     % it is set if included in the graphic state (otherwise this is
  308.     % subject to order of a dictionary forall, which is unpredictable)
  309.     dup /TR2 .knownget {
  310.       dup /Default eq { oforce gsparamdict /TR2 get exec } { pop } ifelse
  311.     } {
  312.       dup /TR .knownget {
  313.         /dup /Default eq { oforce gsparamdict /TR get exec } { pop } ifelse
  314.       } if
  315.     } ifelse
  316.   }
  317.   /HTP {
  318.     % HTP may be present even if this isn't a DPS interpreter.
  319.     /sethalftonephase where { pop aload pop sethalftonephase } { pop } ifelse
  320.   }
  321.     % PDF 1.3
  322.   /Font { aload pop Tf }
  323.   /LW { setlinewidth }
  324.   /LC { setlinecap }
  325.   /LJ { setlinejoin }
  326.   /ML { setmiterlimit }
  327.   /D { aload pop setdash }
  328.   /RI { ri }
  329.   /op { op }
  330.   /OPM { OPM }
  331.   /BG2 { gsbg }
  332.   /UCR2 { gsucr }
  333.   /TR2 { gstr }
  334.   /FL { 1 .min setflat }
  335.   /SM {
  336.     % SM may be present even if this is only a Level 2 interpreter.
  337.     /setsmoothness where { pop setsmoothness } { pop } ifelse
  338.   }
  339.     % PDF 1.4
  340.     % All of these require the "transparency" feature in the interpreter.
  341.   /ca { ca }
  342.   /CA { CA }
  343.   /SMask { gssmask }
  344.   /AIS { AIS }
  345.   /BM { BM }
  346.   /TK { TK }
  347. .dicttomark readonly def
  348. /gs {            % <gsres> gs -
  349.   Page /ExtGState rget {
  350.     % We keep the dictionary on the stack during the forall so that
  351.     % keys that interact with each other have access to it.
  352.     dup {
  353.       oforce exch gsparamdict exch .knownget { exec } { pop } ifelse
  354.     } forall pop
  355.   } if
  356. } bdef
  357.  
  358. % ------ Transparency support ------ %
  359.  
  360. /gssmask {
  361.   dup /None eq {
  362.     pop null
  363.   } {
  364.     % Preprocess the SMask value into a parameter dictionary for
  365.     % .begintransparencymask, with added /BBox and /Draw keys.
  366.     mark exch        % Stack: mark smaskdict
  367.     dup /S oget /Subtype exch 3 2 roll
  368.             % Stack: mark ... smaskdict
  369.     dup /BC knownoget { /Background exch 3 2 roll } if
  370.     dup /TR knownoget {
  371.       resolveidfnproc /TransferFunction exch 3 2 roll
  372.     } if    
  373.     dup /G oget dup /BBox oget /BBox exch 4 2 roll
  374.     /.execmaskgroup cvx 2 packedarray cvx /Draw exch 3 2 roll
  375.     pop .dicttomark
  376.   } ifelse SMask
  377. } bdef
  378.  
  379. % This procedure is called to actually render the soft mask.
  380. /.execmaskgroup {    % <masknum> <paramdict> <formdict> .execmaskgroup -
  381.     % Save our place in PDFfile, and do a gsave to avoid resetting
  382.     % the color space.
  383.   gsave PDFfile fileposition 4 1 roll
  384.     % We have to select the group's color space so that the
  385.     % background color will be interpreted correctly.
  386.   dup /Group oget /CS knownoget { csresolve setgcolorspace } if
  387.   exch dup /BBox get aload pop .begintransparencymask {
  388.     dup /Resources knownoget { oforce } { 0 dict } ifelse
  389.     exch false resolvestream
  390.     .execgroup .endtransparencymask
  391.   } .internalstopped {
  392.     .discardtransparencymask stop
  393.   } if
  394.   PDFfile exch setfileposition grestore
  395. } bdef
  396. % Paint a Form+Group XObject, either for a transparency mask or for a Do.
  397. /.execgroup {        % <resdict> <stream> .execgroup -
  398.   gsave
  399.   1 .setopacityalpha 1 .setshapealpha
  400.   0 .inittransparencymask 1 .inittransparencymask
  401.   /Compatible .setblendmode
  402.     % Execute the body of the Form, similar to DoForm.
  403.   pdfopdict .pdfruncontext
  404.   grestore
  405. } bdef
  406.  
  407. /.beginformgroup {    % groupdict bbox .beginformgroup -
  408.   exch mark exch            % bbox mark groupdict
  409.   dup /CS knownoget { csresolve setgcolorspace } if
  410.   dup /I knownoget { /Isolated exch 3 2 roll } if
  411.   dup /K knownoget { /Knockout exch 3 2 roll } if
  412.   pop .dicttomark
  413.         % Stack: bbox paramdict
  414.   exch aload pop
  415.   .begintransparencygroup
  416. } bdef
  417.  
  418. % .paintgroupform implements the Form PaintProc in the case where the
  419. % Form XObject dictionary includes a Group key.  See .paintform below.
  420. /.paintgroupform {    % <resdict> <stream> <formdict> .paintgroupform -
  421.   dup /Group oget exch /BBox oget
  422.         % Stack: resdict stream groupdict bbox
  423.   .beginformgroup {
  424.     .execgroup
  425.   } .internalstopped {
  426.     .discardtransparencygroup stop
  427.   } if .endtransparencygroup
  428. } bdef
  429.  
  430. % Make an ImageType 103 (soft-masked) image.
  431. /makesoftmaskimage {    % <datasource> <imagemask> <SMask> makesoftmaskimage
  432.             %   <datasource> <imagemask>, updates currentdict =
  433.             %   imagedict
  434.         % See the ImageType 3 case of makemaskimage below.
  435.         % SMask is a stream, another Image XObject.
  436.         % Stack: datasource imagemask(false) smaskstreamdict
  437.   PDFfile fileposition exch
  438.   dup /Matte knownoget { /Matte exch def } if
  439.   dup length dict makeimagedict pop
  440.         % In order to prevent the two data sources from being
  441.         % aliased, we need to make at least one a reusable stream.
  442.         % We pick the mask, since it's smaller (in case we need to
  443.         % read all its data now).
  444.         % Stack: datasource imagemask(false) savedpos
  445.         % maskdict is currentdict
  446.   /DataSource DataSource mark
  447.     /Intent 1
  448.     /AsyncRead true
  449.   .dicttomark .reusablestreamdecode def
  450.   PDFfile exch setfileposition
  451.   currentdict end currentdict end
  452.   5 dict begin
  453.   /ImageType 103 def
  454.   /DataDict exch def
  455.   dup /InterleaveType 3 put
  456.   DataDict /Matte knownoget {
  457.     /Matte exch def
  458.   } if
  459.   AlphaIsShape { /ShapeMaskDict } { /OpacityMaskDict } ifelse exch def
  460.   /ColorSpace DataDict /ColorSpace get def
  461. } bdef
  462.  
  463. % ---------------- Color setting ---------------- %
  464.  
  465. /01_1 [0 1] readonly def
  466. /01_3 [0 1 0 1 0 1] readonly def
  467. /01_4 [0 1 0 1 0 1 0 1] readonly def
  468.  
  469. % The keys here are resolved (PostScript, not PDF) color space names.
  470. /csncompdict mark
  471.   /DeviceGray { pop 1 }
  472.   /DeviceRGB { pop 3 }
  473.   /DeviceCMYK { pop 4 }
  474.   /CIEBasedA { pop 1 }
  475.   /CIEBasedABC { pop 3 }
  476.   /ICCBased { 1 oget /N oget }
  477.   /Separation { pop 1 }
  478.   /DeviceN { 1 oget length }
  479. .dicttomark readonly def
  480.  
  481. /csrdict mark
  482.   /DeviceGray { }
  483.   /DeviceRGB { }
  484.   /DeviceCMYK { }
  485.   /CalGray {
  486.     1 oget 6 dict begin
  487.     dup /Gamma knownoget {
  488.       /exp load 2 packedarray cvx /DecodeA exch def
  489.     } if
  490.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  491.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  492.     /PDFColorSpace exch def [ /CIEBasedA currentdict end ]
  493.   }
  494.   /CalRGB {
  495.     1 oget 6 dict begin
  496.     dup /Gamma knownoget {
  497.       [ exch { /exp load 2 packedarray cvx } forall
  498.       ] /DecodeABC exch def
  499.     } if
  500.     dup /Matrix knownoget { /MatrixABC exch def } if
  501.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  502.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  503.     /PDFColorSpace exch def [ /CIEBasedABC currentdict end ]
  504.   }
  505.   /CalCMYK {
  506.     pop /DeviceCMYK        % not defined by Adobe
  507.   }
  508.   /Lab {
  509.     1 oget 6 dict begin
  510.     dup /Range knownoget not { [-100 100 -100 100] } if
  511.     [0 100 null null null null] dup 2 4 -1 roll putinterval
  512.     /RangeABC exch def
  513.     /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] def
  514.     /MatrixABC [1 1 1 1 0 0 0 0 -1] def
  515.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  516.     dup /WhitePoint knownoget { /WhitePoint exch def } {
  517.       (   **** Warning: Lab colorspace is missing WhitePoint.\n)
  518.       pdfformaterror
  519.       /WhitePoint [0.9505 1 1.089] def
  520.     } ifelse
  521.     % scaling function g() for DecodeLMN construction
  522.     { dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse }
  523.     /DecodeLMN [
  524.       % Store white point implicitly inside procedures.
  525.       [ 3 index aload pop WhitePoint 0 get /mul .systemvar ] cvx bind
  526.       [ 4 index aload pop WhitePoint 1 get /mul .systemvar ] cvx bind
  527.       [ 5 index aload pop WhitePoint 2 get /mul .systemvar ] cvx bind
  528.     ] def pop
  529.     /PDFColorSpace exch def [ /CIEBasedABC currentdict end ]
  530.   }
  531.   /ICCBased {
  532.     PDFfile fileposition exch
  533.     dup dup 1 oget
  534.     mark exch { oforce } forall .dicttomark
  535.     dup dup true resolvestream
  536.     /ReusableStreamDecode filter /DataSource exch put
  537.     1 exch put
  538.     exch PDFfile exch setfileposition
  539.   } bind
  540.   /Separation {
  541.     aload pop exch oforce resolvecolorspace exch oforce resolvefnproc
  542.     4 array astore
  543.   }
  544.   /DeviceN {
  545.     0 4 getinterval                    % ignore attributes
  546.     aload pop 3 -1 roll oforce           % resolve names array
  547.     [ exch { oforce } forall ]           % resolve each of the names
  548.     3 -1 roll oforce resolvecolorspace
  549.     3 -1 roll oforce resolvefnproc
  550.     4 array astore
  551.   }
  552.   /Indexed {
  553.     aload pop 3 -1 roll oforce resolvecolorspace
  554.         % Stack: /Indexed hival lookup basespace
  555.         % If the underlying space is a Lab space, we must scale
  556.         % the output of the lookup table as part of DecodeABC.
  557.     dup dup type /arraytype eq { 0 get } if /CIEBasedABC eq {
  558.       dup 1 get /DecodeLMN known {
  559.     1 get dup length dict copy
  560.     begin /DecodeABC [ 0 2 4 {
  561.       RangeABC 1 index 1 add get RangeABC 2 index get sub /mul load
  562.       RangeABC 3 index get /add load
  563.       DecodeABC 6 -1 roll 2 idiv get [ 6 1 roll aload pop ] cvx
  564.     } for ] def
  565.     /RangeABC //01_3 def
  566.     currentdict end /CIEBasedABC exch 2 array astore
  567.       } if
  568.     } if
  569.     3 1 roll
  570.     oforce dup type /stringtype ne {
  571.         % The color lookup table is a stream.
  572.         % Get its contents.  Don't lose our place in PDFfile.
  573.         % Stack: /Indexed basespace hival lookup
  574.     PDFfile fileposition 5 1 roll true resolvestream
  575.         % Stack: filepos /Indexed basespace hival lookupstream
  576.     1 index 1 add
  577.         % Stack: filepos /Indexed basespace hival lookupstream len
  578.     3 index
  579.       dup dup type /arraytype eq { 0 get } if
  580.       //csncompdict exch get exec mul
  581.     string readstring pop
  582.         % Stack: filepos /Indexed basespace hival table
  583.     5 -1 roll PDFfile exch setfileposition
  584.     }
  585.     if 4 array astore
  586.         % Replace the PDFColorSpace with the Indexed space if needed.
  587.     dup 1 get
  588.     dup type /arraytype eq {
  589.       dup length 2 ge {
  590.     dup 1 get type /dicttype eq {
  591.       dup 1 get /PDFColorSpace known {
  592.         dup 1 get /PDFColorSpace 3 index put
  593.       } if
  594.     } if
  595.       } if
  596.     } if pop
  597.   }
  598.   /Pattern {
  599.     dup type /nametype ne {
  600.       dup length 1 gt {
  601.     1 oget resolvecolorspace
  602.     /Pattern exch 2 array astore
  603.       } if
  604.     } if
  605.   }
  606. .dicttomark readonly def
  607.  
  608. /cssubst {        % <csname> cssubst <cspace'> true
  609.             % <csname> cssubst false
  610.   dup resolvecolorspace
  611.   dup 1 index ne { exch pop true } { pop pop false } ifelse
  612. } bdef
  613.  
  614. /csnames mark
  615.   /DeviceGray dup  /DeviceRGB dup  /DeviceCMYK dup  /Pattern dup
  616. .dicttomark readonly def
  617. /csresolve {        % <csresourcename> csresolve <cspace>
  618.   dup Page /ColorSpace rget {
  619.     exch pop resolvecolorspace
  620.   } {
  621.     //csnames 1 index known not { /undefined cvx signalerror } if
  622.   } ifelse
  623. } bdef
  624. /resolvecolorspace {    % <cspace> resolvecolorspace <cspace'>
  625.   dup dup type /arraytype eq { 0 get } if
  626.   //csrdict exch .knownget {
  627.     exec dup type /nametype ne { dup length 1 eq { 0 get } if } if
  628.   } {
  629.     csresolve
  630.   } ifelse
  631. } bdef
  632.  
  633. /scresolve {    % <c0> ... scresolve <multi>
  634.         % We can't really make sc[n] and SC[N] work, because
  635.         % the color space information isn't available at
  636.         % conversion time; so we hack it by assuming that
  637.         % all the operands on the stack are used, and that
  638.         % if the top operand is a name, it's a Pattern resource.
  639.   dup type /nametype eq
  640.     { Page /Pattern rget { resolvepattern } { null } ifelse }
  641.   if
  642.   dup type /dicttype eq {
  643.         % Check the PaintType, if any (shading patterns don't
  644.         % have one).
  645.     dup /PaintType knownoget { 2 eq } { false } ifelse
  646.   } {
  647.     .pdfcount 1 gt
  648.   } ifelse
  649. } bdef
  650.  
  651. /.pdfpaintproc {         % <patdict> <resdict> .pdfpaintproc -
  652.   DEBUG { (%Begin PaintProc) = flush } if
  653.     % For uncolored patterns, we have to unbind the current
  654.     % color and color space before running the PaintProc.
  655.     % There's no harm in doing this for colored patterns,
  656.     % so for simplicity, we always do it.
  657.   PDFfile fileposition 3 1 roll
  658.   q
  659.   null sc1 null SC1
  660.  
  661.   % save old value of pdfemptycount on opstack, set to new value
  662.   pdfemptycount /pdfemptycount count 3 sub def 3 1 roll
  663.   exch false resolvestream pdfopdict .pdfruncontext
  664.   % restore pdfemptycount
  665.   /pdfemptycount exch def
  666.  
  667.   Q
  668.   DEBUG { (%End PaintProc) = flush } if
  669.   PDFfile exch setfileposition
  670. } bdef
  671.  
  672. /resolvepattern {    % <patternstreamdict> resolvepattern <patterndict>
  673.         % Don't do the resolvestream now: just capture the data
  674.         % from the file if necessary.
  675.   dup length dict copy
  676.   dup /FilePosition .knownget {
  677.     1 index /File get dup fileposition 3 1 roll
  678.         % Stack: dict savepos pos file
  679.     dup 3 -1 roll setfileposition
  680.     dup 3 index /Length oget
  681.  
  682.     dup 65535 le {
  683.       string readstring pop
  684.     } {
  685.       () /SubFileDecode filter /ReusableStreamDecode filter
  686.     } ifelse
  687.         % Stack: dict savepos file string
  688.     3 1 roll exch setfileposition
  689.     1 index /File 3 -1 roll put
  690.     dup /FilePosition undef
  691.   } if
  692.   dup /Shading knownoget {
  693.     resolveshading 1 index /Shading 3 -1 roll put
  694.   } if
  695.   dup /PaintProc [
  696.         % Bind the resource dictionary into the PaintProc.
  697.     2 index /Resources knownoget { oforce } { 0 dict } ifelse
  698.     /.pdfpaintproc cvx
  699.   ] cvx put
  700.   DEBUG {
  701.     (%Pattern: ) print dup === flush
  702.   } if
  703. } bdef
  704.  
  705. drawopdict begin
  706.   /g { /DeviceGray cssubst { cs sc1 } { g } ifelse } bdef
  707.   /rg { /DeviceRGB cssubst { cs sc* } { rg } ifelse } bdef
  708.   /k { k } bdef
  709.   /cs { csresolve cs } bdef
  710.   /sc { scresolve { sc* } { sc1 } ifelse } bdef
  711.   /scn /sc load def
  712.   /G { /DeviceGray cssubst { CS SC1 } { G } ifelse } bdef
  713.   /RG { /DeviceRGB cssubst { CS SC* } { RG } ifelse } bdef
  714.   /K { K } bdef
  715.   /CS { csresolve CS } bdef
  716.   /ri { ri } bdef
  717.   /SC { scresolve { SC* } { SC1 } ifelse } bdef
  718.   /SCN /SC load def
  719. end
  720.  
  721. % ---------------- Paths ---------------- %
  722.  
  723. drawopdict begin
  724.             % Path construction
  725.   /m /moveto load def
  726.   /l /lineto load def
  727.   /c /curveto load def
  728.   /v { currentpoint 6 2 roll curveto } def
  729.   /y { 2 copy curveto } def
  730.   /re {
  731.    4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  732.    closepath
  733.   } def
  734.   /h /closepath load def
  735.             % Path painting and clipping
  736.   /n { n } def
  737.   /S { S } def
  738.   /s { s } def
  739.   /f { f } def
  740.   /f* { f* } def
  741.   /B { B } def
  742.   /b { b } def
  743.   /B* { B* } def
  744.   /b* { b* } def
  745.   /W { W } def
  746.   /W* { W* } def
  747.   /sh { resolvesh shfill } def
  748. end
  749.  
  750. % ---------------- XObjects ---------------- %
  751.  
  752. /xobjectprocs mark        % <dict> -proc- -
  753.   /Image { DoImage }
  754.   /Form { DoForm }
  755.   /PS { DoPS }
  756. .dicttomark readonly def
  757.  
  758. % Note that the keys in defaultdecodedict are resolved (PostScript, not PDF)
  759. % color space names.
  760. /defaultdecodedict mark
  761.   /DeviceGray { pop //01_1 } bind
  762.   /DeviceRGB { pop //01_3 } bind
  763.   /DeviceCMYK { pop //01_4 } bind
  764.   /CIEBasedA { 1 get /RangeA knownoget not { //01_1 } if } bind
  765.   /CIEBasedABC { 1 get /RangeABC knownoget not { //01_3 } if } bind
  766.   /ICCBased {
  767.      1 oget dup /Range knownoget {
  768.        exch pop
  769.      }{
  770.        /N get [ exch {0 1} repeat ] readonly
  771.      } ifelse
  772.   } bind
  773.   /Separation { pop //01_1 } bind
  774.   /DeviceN {
  775.     1 oget length [ exch {0 1} repeat ] readonly
  776.   } bind
  777.   /Indexed {
  778.     pop [ 0 1 BitsPerComponent bitshift 1 sub ]
  779.   } bind
  780. .dicttomark readonly def
  781.  
  782. /checkaltimage {    % <resdict> checkaltimage <resdict[']>
  783.   Printed {
  784.     dup /Alternates knownoget {
  785.       {
  786.     dup /DefaultForPrinting knownoget {
  787.       {
  788.         /Image oget exch pop exit
  789.       } {
  790.         pop
  791.       } ifelse
  792.     } {
  793.       pop
  794.     } ifelse
  795.       } forall
  796.     } if
  797.   } if
  798. } bdef
  799.  
  800. /makeimagedict {    % <resdict> <newdict> makeimagedict <imagemask>
  801.             % On return, newdict' is currentdict
  802.   begin
  803.   /Width 2 copy oget def
  804.   /Height 2 copy oget def
  805.   /BitsPerComponent 2 copy oget def
  806.   /Interpolate 2 copy knownoget { def } { pop } ifelse
  807.   makeimagekeys
  808. } bdef
  809. /makeimagekeys {    % <resdict> makeimagekeys <imagemask>
  810.         % newdict is currentdict
  811.         % Assumes Width, Height, BPC, Interpolate already copied.
  812.   /ImageType 1 def
  813.   /ImageMatrix Width 0 0
  814.         % Handle 0-height images specially.
  815.     Height dup 0 eq { pop 1 } if neg 0 1 index neg
  816.     6 array astore def
  817.   dup /ImageMask knownoget dup { and } if {
  818.         % Image mask
  819.         % Decode is required for the PostScript image operators.
  820.                 % AI8 writes bogus decode array [0 1 0 0 0 0 0 0]
  821.     /Decode 2 copy knownoget { 0 2 getinterval } { //01_1 } ifelse def
  822.         % BitsPerComponent may be missing for masks.
  823.         % The spec requires it, but some producers omit it, and
  824.         % Acrobat Reader doesn't care.
  825.     /BitsPerComponent 2 copy known { pop } { 1 def } ifelse
  826.     true
  827.   } {
  828.         % Opaque image
  829.     dup /ColorSpace oget resolvecolorspace /ColorSpace exch def
  830.         % Decode is required for the PostScript image operators.
  831.     /Decode 2 copy knownoget not {
  832.       ColorSpace //defaultdecodedict
  833.       ColorSpace dup type /arraytype eq { 0 get } if get exec
  834.     } if def
  835.     false
  836.   } ifelse
  837.         % Even though we're going to read data,
  838.         % pass false to resolvestream so that
  839.         % it doesn't try to use Length (which may not be present).
  840.   exch false resolvestream /DataSource exch def
  841. } bdef
  842.  
  843. /DoImage {
  844.   checkaltimage dup length 6 add dict
  845.   1 index /SMask knownoget { 1 index exch /SMask exch put } if
  846.   1 index /Mask knownoget { 1 index exch /Mask exch put } if
  847.   makeimagedict doimage
  848. } bdef
  849. /makemaskimage {    % <datasource> <imagemask> <Mask> makemaskimage
  850.             %   <datasource> <imagemask>, updates currentdict =
  851.             %   imagedict
  852.   dup type /arraytype eq {
  853.     /ImageType 4 def
  854.     /MaskColor exch def
  855.   } {
  856.         % Mask is a stream, another Image XObject.
  857.         % Stack: datasource imagemask(false) maskstreamdict
  858.     PDFfile fileposition exch
  859.     dup length dict makeimagedict pop
  860.         % In order to prevent the two data sources from being
  861.         % aliased, we need to make at least one a reusable stream.
  862.         % We pick the mask, since it's smaller (in case we need to
  863.         % read all its data now).
  864.         % Stack: datasource imagemask(false) savedpos
  865.         % maskdict is currentdict
  866.     /DataSource DataSource mark
  867.       /Intent 1
  868.       /AsyncRead true
  869.     .dicttomark .reusablestreamdecode def
  870.     PDFfile exch setfileposition
  871.     currentdict end currentdict end
  872.     5 dict begin
  873.     /ImageType 3 def
  874.     /InterleaveType 3 def
  875.     /DataDict exch def
  876.     /MaskDict exch def
  877.     /ColorSpace DataDict /ColorSpace get def
  878.   } ifelse
  879. } bdef
  880. /doimage {    % <imagemask> doimage -
  881.         % imagedict is currentdict, gets popped from dstack
  882.   DataSource exch
  883.   PDFversion 1.4 ge NOTRANSPARENCY not and {
  884.     currentdict /SMask knownoget
  885.   } {
  886.     false
  887.   } ifelse {
  888.     makesoftmaskimage
  889.   } {
  890.     currentdict /Mask knownoget {
  891.       makemaskimage
  892.     } if
  893.   } ifelse
  894.         % Stack: datasource imagemask
  895.    % image and imagemask can be redefined in gs_init.ps to tweak interpolation
  896.    % after device-specific files are run. Don't bind them here.
  897.    { currentdict end setfillstate /imagemask }
  898.    { ColorSpace setgcolorspace currentdict end setfillblend /image }
  899.   ifelse
  900.   .systemvar stopped {
  901.     $error /errorname get dup /ioerror eq {
  902.       pop (\n   **** Warning: File has insufficient data for an image.\n)
  903.       pdfformaterror
  904.     } {
  905.       (\n   **** Warning: File encountered ')
  906.       exch 40 string cvs concatstrings
  907.       (' error while processing an image.\n) concatstrings
  908.       pdfformaterror
  909.     } ifelse
  910.   } if
  911.         % Close the input stream, unless it is PDFfile or
  912.         % PDFsource.
  913.   dup dup PDFfile eq exch PDFsource eq or { pop } { closefile } ifelse
  914. } bdef
  915.  
  916. /.paintform {    % <formdict> <resdict> <stream> .paintform -
  917.   3 -1 roll dup /Group known NOTRANSPARENCY not and {
  918.     .paintgroupform
  919.   } {
  920.     pop pdfopdict .pdfruncontext
  921.   } ifelse
  922. } bdef
  923.  
  924. /DoForm {
  925.     % Adobe 2nd edition of the PDF 1.3 spec makes /FormType
  926.     % and /Matrix keys optional. Cope with the missing keys.
  927.   dup length
  928.   1 index /Matrix known
  929.     { dict
  930.     }
  931.     { 1 add dict
  932.       dup /Matrix { 1 0 0 1 0 0 } cvlit put
  933.     }
  934.   ifelse
  935.   copy
  936.   dup /FormType known not {
  937.     dup length 1 add dict copy dup /FormType 1 put
  938.   } if
  939.  
  940.   dup [ 2 index /Resources knownoget { oforce } { 0 dict } ifelse
  941.   3 index false /resolvestream cvx
  942.   /.paintform cvx
  943.   ] cvx /PaintProc exch put
  944.   q execform Q        % gsave / grestore around the Form
  945. } bdef
  946.  
  947. /_dops_save 1 array def
  948.  
  949. /DoPS {
  950.   DOPS
  951.    {
  952.      //_dops_save 0 save put
  953.      true resolvestream cvx exec
  954.      //_dops_save 0 get restore
  955.    }
  956.    { pop }
  957.   ifelse
  958. } bdef
  959.  
  960. currentdict /_dops_save undef
  961.  
  962. drawopdict begin
  963.   /Do {
  964.     setfillblend
  965.     PDFfile fileposition exch
  966.     dup Page /XObject rget { 
  967.       exch pop dup /Subtype get xobjectprocs exch get
  968.         % Don't leave extra objects on the stack while executing
  969.         % the definition of the form.
  970.       3 -1 roll 2 .execn
  971.     } {
  972.         % This should cause an error, but Acrobat Reader can
  973.         % continue, so we do too.
  974.       (   **** Undefined XObject resource: ) 
  975.       exch =string cvs concatstrings (\n) concatstrings
  976.       pdfformaterror
  977.     } ifelse
  978.     PDFfile exch setfileposition
  979.   } bdef
  980. end
  981.  
  982. % ---------------- In-line images ---------------- %
  983.  
  984. % Undo the abbreviations in an in-line image dictionary.
  985. % Note that we must look inside array values.
  986. % /I is context-dependent.
  987. /unabbrevkeydict mark
  988.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  989.   /F /Filter  /H /Height  /I /Interpolate  /IM /ImageMask  /W /Width
  990. .dicttomark readonly def
  991. /unabbrevvaluedict mark
  992.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  993.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  994.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /Fl /FlateDecode
  995.   /G /DeviceGray  /RGB /DeviceRGB
  996.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  997. .dicttomark readonly def
  998. /unabbrevtypedict mark
  999.   /nametype {
  1000.     //unabbrevvaluedict 1 index .knownget { exch pop } if
  1001.   }
  1002.   /arraytype {
  1003.     dup 0 1 2 index length 1 sub {
  1004.       2 copy get unabbrevvalue put dup
  1005.     } for pop
  1006.   }
  1007. .dicttomark readonly def
  1008. /unabbrevvalue {    % <obj> unabbrevvalue <obj'>
  1009.   oforce //unabbrevtypedict 1 index type .knownget { exec } if
  1010. } bdef
  1011.  
  1012. drawopdict begin
  1013.   /BI { mark } bdef
  1014.   /ID {
  1015.     counttomark 2 idiv dup 7 add dict begin {
  1016.       exch //unabbrevkeydict 1 index .knownget { exch pop } if
  1017.       exch unabbrevvalue def
  1018.     } repeat pop
  1019.     /IDFlag true def  % flag for stream processing.
  1020.     /File PDFsource def
  1021.     currentdict makeimagekeys doimage    
  1022.     % The Adobe documentation says that the data following ID
  1023.     % consists of "lines", and some PDF files (specifically, some files
  1024.     % produced by PCL2PDF from Visual Software) contain garbage bytes
  1025.     % between the last byte of valid data and an EOL.
  1026.         % Some files (PDFOUT v3.8d by GenText) have EI immediately following
  1027.         % the stream. Some have no EOL and garbage bytes.
  1028.         % Therefore, we skip all bytes before EI or EOL 
  1029.     0
  1030.       { PDFsource read not { //true exit } if
  1031.         dup 10 eq 1 index 13 eq or
  1032.           { pop PDFsource token pop /EI ne exit
  1033.           }
  1034.         if
  1035.         exch 69 eq 1 index 73 eq and { //false exit } if  % 'EI'
  1036.       }
  1037.     loop
  1038.     exch pop
  1039.       { /ID cvx /syntaxerror signalerror
  1040.       }
  1041.     if
  1042.   } bdef
  1043. end
  1044.  
  1045. % ================================ Text ================================ %
  1046.  
  1047. drawopdict begin
  1048.             % Text control
  1049.   /BT { BT } def
  1050.   /ET { ET } def
  1051.   /Tc { Tc } def
  1052.   /TL { TL } def
  1053.   /Tr { Tr } def
  1054.   /Ts { Ts } def
  1055.   /Tw { Tw } def
  1056.   /Tz { Tz } def
  1057.             % Text positioning
  1058.   /Td { Td } def
  1059.   /TD { TD } def
  1060.   /Tm { Tm } def
  1061.   /T* { T* } def
  1062.             % Text painting
  1063.   /Tj { Tj } def
  1064.   /' { ' } def
  1065.   /" { " } def
  1066.   /TJ { TJ } def
  1067. end
  1068.  
  1069. % ============================== Annotations ============================== %
  1070.  
  1071.  
  1072.  
  1073. % Get and normalize an annotation's rectangle.
  1074. /annotrect {        % <annot> annotrect <x> <y> <w> <h>
  1075.   /Rect get aload pop
  1076.   exch 3 index sub dup 0 lt { dup 5 -1 roll add 4 1 roll neg } if
  1077.   exch 2 index sub dup 0 lt { dup 4 -1 roll add 3 1 roll neg } if
  1078. } bdef
  1079.  
  1080. % Set an annotation color.
  1081. /annotsetcolor {    % <annot> annotsetcolor -
  1082.   /C knownoget { aload pop setrgbcolor } { 0 setgray } ifelse
  1083. } bdef
  1084.  
  1085. % Draw the border.  Currently, we ignore requests for beveling, and we
  1086. % don't round the corners of rectangles.
  1087. /strokeborder {        % <annot> <width> <dash> strokeborder -
  1088.   1 index 0 ne {    % do not draw if border width is 0
  1089.     gsave
  1090.     2 index annotsetcolor
  1091.     0 setdash dup setlinewidth
  1092.     exch annotrect
  1093.     2 { 4 index sub 4 1 roll } repeat
  1094.     2 { 4 index 0.5 mul add 4 1 roll } repeat
  1095.     rectstroke pop
  1096.     grestore
  1097.   } {
  1098.     pop pop pop
  1099.   } ifelse
  1100. } bdef
  1101.  
  1102. % Draw an annotation border.
  1103. /drawborder {        % <annot> drawborder -
  1104.   gsave
  1105.   dup /BS knownoget {
  1106.     dup /W knownoget not { 1 } if
  1107.     [] 2 index /S knownoget {
  1108.       /D eq { 2 index /D knownoget not { [3] } if exch pop } if
  1109.     } if 3 -1 roll pop strokeborder
  1110.   } {
  1111.     dup /Border knownoget {
  1112.       dup 2 get
  1113.       exch dup length 3 gt { 3 get } { pop [] } ifelse
  1114.       strokeborder
  1115.     } {
  1116.       1 [] strokeborder
  1117.     } ifelse
  1118.   } ifelse
  1119.   grestore
  1120. } bdef
  1121.  
  1122. %
  1123. %   The PDF annotation F (flags) integer is bit encoded.
  1124. %   Bit 1 (LSB) Invisible:  1 --> Do not display if no handler.
  1125. %         Note:  We have no handlers but we ignore this bit.
  1126. %   Bit 2 Hidden:  1 --> Do not display.  We will not display if this bit is set.
  1127. %   Bit 3 Print:  1 --> Display if printing.  We will display if this bit set
  1128. %         (and not hidden) and Printed is true
  1129. %   Bit 4 NoZoom:  1 --> Do not zoom annotation even if image is zoomed.
  1130. %   Bit 5 NoRotate:  1 --> Do not rotate annotation even if image is rotated.
  1131. %   Bit 6 NoView:  0 --> Display if this is a 'viewer'.  We will display
  1132. %         if this bit is not set (and not hidden) and Printed is false
  1133. %   Bit 7 Read Only - 1 --> No interaction.  We ignore this bit
  1134. %
  1135. /annotvisible {            % <annot> annotvisible <visible>
  1136.   /F knownoget not { 0 } if         % Get flag value
  1137.   dup 2 and 0 eq              % Check hidden flag
  1138.   exch dup 4 and 0 ne Printed and    % Check print flag
  1139.   exch 64 and 0 eq Printed not and    % Check noview flag
  1140.   or                    % Combine print and view
  1141.   and                     % Combine with 'hidden' flag test
  1142. } bdef
  1143.  
  1144. /drawwidget {            % <scalefactor> <annot> drawwidget -
  1145.   dup /AP knownoget {
  1146.     false
  1147.     [/N /R /D] {
  1148.     % stack: scale annot appearance false key
  1149.       dup 3 index exch known {
  1150.     exch pop true exit 
  1151.       } if
  1152.       pop
  1153.     } forall
  1154.     % stack: scale annot appearance key true
  1155.     % stack: scale annot appearance false
  1156.     dup {
  1157.       pop
  1158.       oget
  1159.         % Acrobat Distiller produces files in which this Form
  1160.         % XObject lacks Type and Subtype keys.  This is illegal,
  1161.         % but Acrobat Reader accepts it.  The only way we can
  1162.         % tell whether this is a Form or a set of sub-appearances
  1163.         % is by testing for the stream Length key.
  1164.       dup /Length known {
  1165.               % If this is a form then simply use it
  1166.         true
  1167.       } {
  1168.         1 index /AS knownoget not {
  1169.               % If we do not have AS then use any appearance
  1170.         { exch pop oforce exit } forall true
  1171.         } { 
  1172.         % Stack: annot Ndict AS
  1173.         % Get the specified appearance.  If no appearance, then
  1174.         % display nothing - set stack = false.
  1175.       knownoget
  1176.         } ifelse
  1177.       } ifelse
  1178.     } {
  1179.       exch pop    % discard useless AP dictionary
  1180.     } ifelse
  1181.  
  1182.         % Stack: scale annot appearance true
  1183.         % Stack: scale annot false
  1184.     {
  1185.               % Draw appearance
  1186.                 % Initialize graphic following "7.4.4 Appearance Streams"
  1187.       q graphicsbeginpage textbeginpage
  1188.       1 index annotrect pop pop translate
  1189.       2 index dup scale        % Apply scale factor
  1190.       DoForm Q
  1191.     } if
  1192.   } if pop pop
  1193. } bdef
  1194.  
  1195. %  For stamp object we have to determine the size of the output rectangle
  1196. %  and the size of the BBox for the stamp image.  From these we calculate
  1197. %  a scale factor for drawing the stamp.
  1198. /calcstampscale {        % <annot> calcstampscale scale
  1199.   dup annotrect 4 -2 roll pop pop     % get width height size in user space
  1200.   3 -1 roll /AP knownoget {
  1201.     /N knownoget {
  1202.       dup /Matrix knownoget {
  1203.     % transform /Annot /Rect xwidth to Form space
  1204.     4 -2 roll 3 -1 roll dtransform 3 -1 roll
  1205.       } if
  1206.       /BBox knownoget {
  1207.         exch pop    % discard y height
  1208.         aload pop pop exch pop sub    % BBox width
  1209.     div        % scale x widths
  1210.     dup 0 lt { neg } if        % get magnitude
  1211.       } {
  1212.         pop pop 1        % default to unity scaling
  1213.       } ifelse            % if we have /BBox
  1214.     } {
  1215.       pop pop 1
  1216.     } ifelse            % if we have /N
  1217.   } {
  1218.     pop pop 1
  1219.   } ifelse            % if we have /AP
  1220. } bdef
  1221.  
  1222. /drawlink {            % <annot> drawlink -
  1223.   dup drawborder
  1224.   1 exch drawwidget
  1225. } bdef
  1226.  
  1227. % Draw an annotation.
  1228. /drawannottypes mark
  1229.   /Link { drawlink } bind
  1230.   /Stamp { dup calcstampscale exch drawwidget } bind
  1231. .dicttomark readonly def
  1232. /drawannot {        % <annot> drawannot -
  1233.   dup annotvisible {
  1234.     gsave
  1235.     dup dup /Subtype get //drawannottypes exch .knownget {
  1236.       exec
  1237.     } {
  1238.       1 exch drawwidget        % Use drawwidget for everything else
  1239.     } ifelse            % type known
  1240.     grestore
  1241.   } if pop            % annotvisible
  1242. } bdef
  1243. currentdict /drawannottypes undef
  1244.  
  1245. end            % pdfdict
  1246. end            % GS_PDF_ProcSet
  1247. .setglobal
  1248.